home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 08 / 5 / DISK0859.ZIP / DEMO / DEMOAST2.ALC < prev    next >
Text File  |  1987-05-18  |  1KB  |  50 lines
  1.     TITLE 'DEMOAST2 - READ SET OF NUMBERS AND PRINT MIN/MAX'
  2. *
  3. * AUTHOR.   DON HIGGINS.
  4. * DATE      03/30/85.
  5. * REMARKS.  PC/370 ASSIST FILE INPUT/OUTPUT DEMO.
  6. *
  7. *  THIS PROGRAM READS A SET OF FREE FORM INPUT NUMBERS FROM DEMOAST2.DAT
  8. *  AND CREATES REPORT WITH LARGEST AND SMALLEST ON FILE DEMOAST2.LOG.
  9. *
  10. *  MAINTENANCE.
  11. *
  12. *  05/18/87 CONVERTED TO R2.0 XFILEI/XFILO PATH/FILENAME FORMAT
  13. *
  14.     START
  15.     USING *,15
  16.     XFILI =C'DEMOAST2.DAT'
  17.     XFILO =C'DEMOAST2.LOG'
  18. READ     XREAD CARD
  19.     BNZ   RESULT
  20.     XPRNT CARD
  21.     XDECI 4,CARD
  22.     C     4,BIG
  23.     BH    HIGH
  24.     C     4,SMALL
  25.     BL    LOW
  26.     B     READ
  27. HIGH     ST    4,BIG
  28.     B     READ
  29. LOW      ST    4,SMALL
  30.     B     READ
  31. RESULT   L     2,BIG
  32.     XDECO 2,DNUM1
  33.     XPRNT BIGOUT
  34.     L     2,SMALL
  35.     XDECO 2,DNUM2
  36.     XPRNT SMLOUT
  37.     SR    15,15
  38.     BR    14
  39. CARD     DC    CL80' '
  40.     DC    CL53' '
  41. BIG      DC    F'0'
  42. SMALL    DC    F'999'
  43. BIGOUT   DC    CL12'0BIGGEST='
  44. DNUM1    DC    CL12' '
  45.     DC    CL109' '
  46. SMLOUT   DC    CL12'0SMALLEST='
  47. DNUM2    DC    CL12' '
  48.     DC    CL109' '
  49.     END
  50.